## Programme N1 ( 6253 pas de programme ):
1 'Le sorcier maudit
2 '(c)E de LAPPARENT AOUT 1986
3 '
10 CLEAR 150,&H2ECA
20 DEFINT A-P
25 DEFDBL Q-T
30 DEFSTR U-Z
40 A=RND(0)
50 GOTO 1000
100 'paint
102 RESTORE 10000
105 FOR A=&H2ED0 TO &H2FEF STEP 16
110 D=0
120 FOR B=A TO A+15
130 READ C
140 POKE B,C
150 D=D+C
160 NEXT
170 READ C
180 IF D<>C THEN PRINT "erreur somme";C:END
190 NEXT
195 RETURN
200 'caractres
210 RESTORE 20000
220 A=128
230 GOSUB 300
240 A=224
250 GOSUB 300
260 RETURN
300 FOR B=A TO A+25
310 Z=""
320 FOR C=0 TO 6
325 OUT 243,15-C*2
330 READ Y
340 Z=Z+"&H"+Y+","
350 NEXT
360 READ Y
370 Z=Z+"&H"+Y
380 FONT$(B)=Z
390 NEXT
400 RETURN
500 'Gothique
510 FOR A=1 TO LEN(Z)
520 B=ASC(MID$(Z,A,1))
525 IF B<65 THEN PRINT CHR$(B);:GOTO 560
530 IF B<91 THEN PRINT CHR$(B+63);:GOTO 550
540 PRINT CHR$(B+127);
550 BEEP 1,1
560 NEXT
570 RETURN
600 'caractres tte
610 RESTORE 21000
620 A=128
630 GOSUB 700
640 FONT$(224)="0,0,128,48,0,0,0,0"
650 FONT$(225)="4,8,8,16,16,0,0,0"
660 FONT$(226)="0,0,0,0,0,0,0,0"
670 FONT$(227)="0,0,0,0,0,0,0,0"
680 RETURN
700 FOR B=A TO A+31
710 Z=""
720 FOR C=0 TO 6
725 OUT 243,255-(B-128)*8-C
730 READ Y
740 Z=Z+"&H"+Y+","
750 NEXT
760 READ Y
770 Z=Z+"&H"+Y
780 FONT$(B)=Z
790 NEXT
800 RETURN
1000 'dbut
1010 CLS
1015 OUT 243,0:OUT 242,0:OUT 244,78
1020 PRINT "Emmanuel"
1030 PRINT "   de"
1040 PRINT "Lapparent"
1050 PRINT "Presente:";
1100 GOSUB 600
1110 FOR B=0 TO 8
1120 FOR A=0 TO 3
1130 LOCATE 10+B,A
1140 PRINT CHR$(-(128+B+A*9)*((128+B+A*9)<160)-(224+(B-5))*((128+B+A*9)>159));
1150 NEXT
1160 NEXT
1200 GOSUB 200
1210 GOSUB 100
1215 OUT 244,0
1220 CLS
1230 PRINT
1240 Z="  Le sorcier maudit"
1250 GOSUB 500
1260 PRINT
1270 PRINT "~~~~~~~~~~~~~~~~~~~~";
1280 PRINT "     (c) 1986"
1290 GOSUB 61000
1300 PRINT
1310 Z="Vous allez vivre uneaventure palpitante!"
1320 GOSUB 500
1330 GOSUB 61000
1340 Z="dont VOUS allez etrele HEROS !!"
1350 GOSUB 500
1360 GOSUB 61000
1365 PRINT
1370 Z="Votre personnage est\
represente par 3    \
caracteristiques:"
1380 GOSUB 500
1390 GOSUB 61000
1395 PRINT
1400 Z="la Force, la consti-tution et la Chance."
1410 GOSUB 500
1420 GOSUB 61000
3000 'Personnage
3010 CLS
3020 PRINT "\
Caracteristiques    \
de votre Personnage:";
3030 PRINT
3040 INPUT "Nom ";V
3100 '     FORCE
3105 PRINT
3110 PRINT "       FORCE",,
3115 GOSUB 61000
3120 PRINT
3125 PRINT "\
Vous allez devoir   \
taper le plus rapide\
-ment possible sur  ";
3130 PRINT "la BARRE d'ESPACE";
3140 GOSUB 61000
3145 PRINT
3150 PRINT "des que retentira le BEEP !";
3200 A=0
3210 EXEC &HC0BD
3220 FOR B=0 TO 2000+INT(RND(1)*1000)
3230 NEXT
3240 IF INKEY$<>"" THEN PRINT:PRINT "Tricheur !!":BEEP -1,10:GOTO 3300
3250 PRINT ,,,,"   ---' BEEP '---",,:BEEP 1,5
3260 FOR B=1 TO 350
3270 IF INKEY$=" " THEN A=A+1
3280 NEXT
3300 F=A
3305 PRINT:PRINT
3310 PRINT V;" >"
3315 PRINT "Force :";F
3320 G=RND(1)*6+10
3330 PRINT "Constitution :";G
3340 H=RND(1)*6+7
3350 PRINT "Chance :";H
3360 GOSUB 61000
3370 PRINT
3420 PRINT "Objets : epee"
3430 GOSUB 61000
3500 PRINT ,,"Vous voila pare ";V;" pour affronter ";
3510 PRINT "le Sorcier Maudit !"
3520 GOSUB 61000
3530 PRINT
3540 PRINT "\
Alors il ne vous    \
reste plus qu'a     partir !!"
3550 GOSUB 61000
4000 POKE &H2ECB,F
4010 POKE &H2ECC,G
4020 POKE &H2ECD,H
5000 PRINT
5010 CLOAD ""
8999 END
10000 DATA 229,017,096,003,237,083,064,003,001,000,000,058,229,047,087,058,1212
10010 DATA 230,047,095,205,177,047,056,026,058,229,047,254,120,048,019,167,1825
10020 DATA 040,016,061,050,229,047,205,177,047,048,237,058,229,047,060,050,1601
10030 DATA 229,047,001,000,000,205,208,047,058,230,047,167,040,052,061,050,1442
10040 DATA 230,047,205,177,047,048,007,014,000,058,230,047,024,032,121,254,1541
10050 DATA 001,032,005,058,230,047,024,022,042,064,003,035,035,034,064,003,699
10060 DATA 058,229,047,042,064,003,119,035,058,230,047,119,014,001,060,050,1176
10070 DATA 230,047,254,031,048,052,060,050,230,047,205,177,047,048,007,006,1539
10080 DATA 000,058,230,047,024,032,120,254,001,032,005,058,230,047,024,022,1184
10090 DATA 042,064,003,035,035,034,064,003,058,229,047,042,064,003,119,035,877
10100 DATA 058,230,047,119,006,001,061,050,230,047,058,229,047,060,050,229,1522
10110 DATA 047,254,120,048,008,205,177,047,056,003,195,005,047,042,064,003,1321
10120 DATA 062,003,188,032,005,062,096,189,040,021,042,064,003,126,050,229,1212
10130 DATA 047,035,126,050,230,047,043,043,043,034,064,003,195,227,046,225,1458
10140 DATA 201,000,197,213,229,058,229,047,087,058,230,047,095,205,014,206,2116
10150 DATA 058,110,002,183,040,005,183,225,209,193,201,055,225,209,193,201,2292
10160 DATA 245,197,213,229,033,229,047,006,002,062,017,014,000,205,047,201,1747
10170 DATA 225,209,193,241,201,054,003,000,000,000,000,000,000,000,000,000,1126
20000 DATA 68,98,A8,78,48,C8,34,0
20010 DATA F0,38,50,70,48,48,B0,0
20020 DATA 30,58,A0,90,90,E0,78,0
20030 DATA F0,58,48,E8,48,48,B0,0
20040 DATA F8,48,40,F0,40,C0,B8,0
20050 DATA 18,28,20,78,28,20,60,A0
20060 DATA 30,78,A0,B8,A8,A8,70,0
20070 DATA C0,50,68,78,48,88,4C,0
20080 DATA 20,58,10,10,10,50,28,0
20090 DATA 38,48,18,8,38,8,68,B0
20100 DATA 58,C8,50,70,50,48,AC,0
20110 DATA 20,50,C0,40,40,40,B8,0
20120 DATA A8,54,54,F4,54,54,54,0
20130 DATA B0,68,48,68,48,C8,48,0
20140 DATA 70,A8,A8,B8,A8,A8,70,0
20150 DATA B0,58,78,58,48,F0,40,40
20160 DATA 70,A8,A8,B8,A8,B8,78,4
20170 DATA B0,58,48,50,70,48,CC,0
20180 DATA 78,D8,C0,70,8,68,B0,0
20190 DATA 78,90,50,50,50,58,30,0
20200 DATA D8,C8,58,48,48,58,28,0
20210 DATA D8,48,D8,48,48,68,30,0
20220 DATA A8,54,54,54,54,54,28,0
20230 DATA C8,30,20,70,20,20,D8,0
20240 DATA D0,48,48,C9,50,60,88,70
20250 DATA 70,88,10,70,40,88,F8,0
20300 DATA 0,60,B0,50,90,B0,48,0
20310 DATA 80,40,50,68,48,68,30,0
20320 DATA 0,0,30,48,40,40,30,0
20330 DATA 40,20,30,48,48,50,20,0
20340 DATA 0,0,60,B0,C0,A0,60,0
20350 DATA 10,28,20,70,0,20,A0,40
20360 DATA 0,0,30,48,58,28,8,30
20370 DATA 80,40,50,68,48,48,24,0
20380 DATA 0,10,40,20,20,20,10,0
20390 DATA 10,0,20,10,10,10,10,20
20400 DATA 80,50,68,50,70,48,24,0
20410 DATA 40,20,20,20,20,20,10,0
20420 DATA 0,0,A8,54,54,54,54,0
20430 DATA 0,0,A0,50,50,50,48,0
20440 DATA 0,0,30,58,48,68,30,0
20450 DATA 0,0,B0,58,48,70,40,20
20460 DATA 0,0,30,58,48,38,8,8
20470 DATA 0,0,B0,40,40,40,20,0
20480 DATA 0,0,30,40,20,10,60,0
20490 DATA 0,40,20,70,20,20,10,0
20500 DATA 0,0,90,48,48,48,34,0
20510 DATA 0,0,90,48,48,50,20,0
20520 DATA 0,0,A8,54,54,54,28,0
20530 DATA 0,0,90,68,20,A8,50,0
20540 DATA 0,0,90,48,58,28,8,70
20550 DATA 0,0,78,10,20,18,8,10
21000 DATA 0,0,0,0,4,4,C,C
21010 DATA 7C,FC,7C,FC,FC,FC,FC,FC
21020 DATA FC,FC,E0,C0,84,9C,C0,4
21030 DATA FC,E0,0,0,80,F8,7C,FC
21040 DATA FC,0,0,0,0,0,E0,F0
21050 DATA FC,0,0,0,0,0,0,4
21060 DATA FC,C,4,0,0,0,0,F8
21070 DATA FC,FC,FC,7C,3C,1C,1C,1C
21080 DATA 0,80,0,0,80,80,0,0
21090 DATA 1C,C,4,C,C,4,C,4
21100 DATA FC,F8,F8,F0,F0,F0,E0,E0
21110 DATA C,0,0,0,0,0,0,0
21120 DATA FC,60,0,0,0,0,0,0
21130 DATA F0,E0,0,0,0,0,0,0
21140 DATA 1C,1C,1C,4,0,0,0,0
21150 DATA FC,FC,F8,D8,0,0,0,0
21160 DATA 98,18,10,10,0,0,0,0
21165 DATA 0,0,0,0,0,0,0,0
21170 DATA 4,0,0,0,0,0,0,0
21180 DATA E0,40,40,0,0,0,10,18
21190 DATA 0,0,0,0,0,0,0,0
21200 DATA 0,0,0,0,0,0,0,0
21210 DATA 0,0,0,30,18,4,0,0
21220 DATA 0,0,0,0,20,0,0,0
21230 DATA 0,0,0,0,0,0,0,4
21240 DATA 0,40,40,40,80,80,0,0
21250 DATA 0,0,0,0,0,0,0,0
21260 DATA 0,0,0,0,0,0,0,0
21270 DATA 8,0,0,0,0,0,0,0
21280 DATA 0,0,0,0,0,0,0,0
21290 DATA 0,20,1C,0,0,0,0,0
21300 DATA 0,0,F0,0,0,0,3C,0
21310 DATA 0,0,80,30,0,0,0,0
60000 Z=INKEY$
60010 IF Z="" THEN 60000
60020 RETURN
61000 EXEC &HC0BD
61005 FOR A=0 TO 5000
61010 NEXT
61020 RETURN
62000 POKE &H2FE5,8:POKE &H2FE6,2:EXEC &H2ED0
